home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #074 (1990-06)(Amiga User Group Deutschland e.V.).adf / Widerstände & Berechnung / PARALLELSCHALTUNG (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  8KB  |  293 lines
  1.      'Dieses Programm schrieb fuer Sie
  2.      'Detlef Kornatz
  3.      'Feuerbachstrasse 6
  4.      'D-4300 ESSEN 1
  5. '**************************************************************************
  6.  
  7.      SCREEN 1,640,256,4,2
  8.      WINDOW 2,,,0,1
  9.      CLS
  10.      PALETTE 0,0.17,0.38,0   'dunkelgruen
  11.      FOR i=1 TO 8
  12.      PALETTE i,0,i/17,i/12 'PALETTEANWEISUNG kann man ändern!!
  13.      NEXT i
  14.      FOR i=1 TO 12
  15.      LINE (i+22,7+i)-(530-i,46-i),i-1,b     'TITEL
  16.      LINE (i+532,7+i)-(630-i,46-i),i-1,b     'ende
  17.      LINE (i+22,47+i)-(216-i,86-i),i-1,b    'STROM
  18.      LINE (i+22,87+i)-(216-i,126-i),i-1,b   'SPANNUNG
  19.      LINE (i+22,127+i)-(216-i,166-i),i-1,b  'RG*R1+R2
  20.      LINE (i+22,167+i)-(216-i,206-i),i-1,b  'STROM a WIDER
  21.      LINE (i+22,207+i)-(216-i,246-i),i-1,b  'RG
  22.      LINE (i+222,47+i)-(630-i,246-i),i-1,b  'AUSGABEWINDOW
  23.      NEXT i
  24.      COLOR 9,0
  25.      LOCATE 4,6 :PRINT " DIE PARALLELSCHALTUNG VON WIDERSTÄNDEN UND IHRE BERECHNUNG"
  26.      LOCATE 4,72:PRINT "ENDE"
  27.      COLOR 10,0
  28.      LOCATE 9,13:PRINT  "STROM"
  29.      LOCATE 14,11:PRINT "SPANNUNG"
  30.      LOCATE 19,6:PRINT  "WIDERSTAND + STROM"
  31.      LOCATE 24,6:PRINT  "STROM + WIDERSTAND"
  32.      LOCATE 29,8:PRINT  "GESAMTWIDERSTAND"
  33.  anfang:
  34.      ON MOUSE GOSUB mausdruck
  35.      MOUSE ON
  36.      WHILE 1 : WEND
  37.  mausdruck:
  38.      druck=MOUSE(0)
  39.      x=MOUSE(3) : y=MOUSE(4)
  40.      
  41.    IF x>35 AND x<203 AND y>60 AND y<73   THEN GOSUB stro
  42.    IF x>35 AND x<203 AND y>100 AND y<113 THEN GOSUB span
  43.    IF x>35 AND x<203 AND y>140 AND y<153 THEN GOSUB stwi
  44.    IF x>35 AND x<203 AND y>180 AND y<193 THEN GOSUB wist
  45.    IF x>35 AND x<203 AND y>220 AND y<233 THEN GOSUB gesamt
  46.    IF x>545 AND x<620 AND y>20 AND y<33  THEN GOSUB ende
  47.    GOTO anfang
  48. stro:
  49.    SOUND 293.66,5,100
  50.    WINDOW 3,,(240,63)-(611,221),0,1
  51.    COLOR 10,0
  52.    CLS:TIMER OFF
  53.    LOCATE 3,8  
  54.    INPUT "WIDERSTAND R1:   ";w
  55.    LOCATE 6,8
  56.    INPUT "WIDERSTAND R2:   ";ww
  57.    LOCATE 9,8
  58.    INPUT "SPANNUNG     :   ";sp
  59.    rg=(w*ww)/(w+ww) 
  60.    COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTSTROM      =":LOCATE 12,38:PRINT "AMPER"
  61.    LOCATE 12,27:PRINT USING "#####.###"; sp/rg
  62.    COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
  63.    LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
  64.    COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1  =":LOCATE 16,38:PRINT "AMPER"
  65.    LOCATE 16,27:PRINT USING "#####.###"; sp/w
  66.    COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
  67.    LOCATE 18,27:PRINT USING "#####.###"; sp/ww  
  68.    ON TIMER (3) GOSUB strom
  69.    TIMER ON
  70.    WHILE 3:SLEEP:WEND
  71. strom:
  72.    CLS:TIMER OFF
  73.   SOUND 493.88,5,100
  74.   SOUND 293.66,5,100
  75.    COLOR 8,0
  76.    LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
  77.    CIRCLE (50,152),4,1
  78.    LINE (50,50)-(50,150),1
  79.    LINE (50,50)-(100,50),1
  80.    LINE (100,40)-(250,60),9,b   'R1
  81.    LINE (100,80)-(250,100),9,b   'R2
  82.    LINE (50,90)-(100,90),1
  83.    LINE (250,50)-(300,50),1
  84.    LINE (250,90)-(300,90),1
  85.    LINE (300,50)-(300,150),1
  86.    CIRCLE (300,152),4,1
  87.    COLOR 15,0
  88.    LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
  89.    LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
  90.    LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
  91.    LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
  92.    COLOR 9,0
  93.    LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
  94.    LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
  95.    LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
  96.    GOTO anfang
  97.    RETURN
  98. span:
  99.    SOUND 493.88,5,100
  100.    WINDOW 3,,(240,63)-(611,221),0,1
  101.    COLOR 10,0
  102.    CLS:TIMER OFF
  103.    LOCATE 3,8 
  104.    INPUT "WIDERSTAND R1:   ";w
  105.    LOCATE 6,8
  106.    INPUT "WIDERSTAND R2:   ";ww
  107.    LOCATE 9,8
  108.    INPUT "STROM        :   ";st
  109.    rg=(w*ww)/(w+ww)
  110.    COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTSPANNUNG   =":LOCATE 12,38:PRINT "VOLT"
  111.    LOCATE 12,27:PRINT USING "#####.###"; st*rg :sp=st*rg
  112.    COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
  113.    LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww) 
  114.    COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1  =":LOCATE 16,38:PRINT "AMPER"
  115.    LOCATE 16,27:PRINT USING "#####.###"; sp/w
  116.    COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
  117.    LOCATE 18,27:PRINT USING "#####.###"; sp/ww
  118.    ON TIMER (3) GOSUB spannung
  119.    TIMER ON
  120.    WHILE 3:SLEEP:WEND
  121. spannung:
  122.   SOUND 493.88,5,100
  123.   SOUND 293.66,5,100
  124.    CLS:TIMER OFF
  125.    COLOR 8,0
  126.    LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
  127.    CIRCLE (50,152),4,1
  128.    LINE (50,50)-(50,150),1
  129.    LINE (50,50)-(100,50),1
  130.    LINE (100,40)-(250,60),9,b   'R1
  131.    LINE (100,80)-(250,100),9,b   'R2
  132.    LINE (50,90)-(100,90),1
  133.    LINE (250,50)-(300,50),1
  134.    LINE (250,90)-(300,90),1
  135.    LINE (300,50)-(300,150),1
  136.    CIRCLE (300,152),4,1
  137.    COLOR 15,0
  138.    LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
  139.    LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
  140.    LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
  141.    LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
  142.    COLOR 9,0
  143.    LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
  144.    LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
  145.    LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
  146.    GOTO anfang
  147.    RETURN
  148. stwi:
  149.    SOUND 493.88,5,100
  150.    WINDOW 3,,(240,63)-(611,221),0,1
  151.    COLOR 10,0
  152.    CLS:TIMER OFF
  153.    LOCATE 3,8
  154.    INPUT "WIDERSTAND R1:   ";w
  155.    LOCATE 6,8
  156.    INPUT "SPANNUNG     :   ";sp
  157.    LOCATE 9,8
  158.    INPUT "STROM        :   ";st
  159.    rg=sp/st
  160.    ww=(w*rg)/(w-rg)
  161.    COLOR 14,0 :LOCATE 12,8:PRINT "WIDERSTAND R2    =":LOCATE 12,38:PRINT "OHM"
  162.    LOCATE 12,27:PRINT USING "#####.###";(w*rg)/(w-rg)
  163.    COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
  164.    LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww) 
  165.    COLOR 14,0 :LOCATE 16,8:PRINT "TEILSTROM am R1  =":LOCATE 16,38:PRINT "AMPER"
  166.    LOCATE 16,27:PRINT USING "#####.###"; sp/w
  167.    COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
  168.    LOCATE 18,27:PRINT USING "#####.###"; sp/ww 
  169.    ON TIMER (3) GOSUB spawi
  170.    TIMER ON
  171.    WHILE 3:SLEEP:WEND
  172. spawi:
  173.   SOUND 493.88,5,100
  174.   SOUND 293.66,5,100
  175.    CLS:TIMER OFF
  176.    COLOR 8,0
  177.    LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
  178.    CIRCLE (50,152),4,1
  179.    LINE (50,50)-(50,150),1
  180.    LINE (50,50)-(100,50),1
  181.    LINE (100,40)-(250,60),9,b   'R1
  182.    LINE (100,80)-(250,100),9,b   'R2
  183.    LINE (50,90)-(100,90),1
  184.    LINE (250,50)-(300,50),1
  185.    LINE (250,90)-(300,90),1
  186.    LINE (300,50)-(300,150),1
  187.    CIRCLE (300,152),4,1
  188.    COLOR 15,0
  189.    LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
  190.    LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
  191.    LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
  192.    LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
  193.    COLOR 9,0
  194.    LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
  195.    LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
  196.    LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
  197.    GOTO anfang
  198.    RETURN
  199. wist:
  200.    SOUND 493.88,5,100
  201.    WINDOW 3,,(240,63)-(611,221),0,1
  202.    COLOR 10,0
  203.    CLS:TIMER OFF  
  204.    LOCATE 3,8 
  205.    INPUT "STROM  am  R1:   ";i
  206.    LOCATE 6,8
  207.    INPUT "SPANNUNG     :   ";sp
  208.    LOCATE 9,8
  209.    INPUT "STROM        :   ";st 
  210.    COLOR 14,0 :LOCATE 12,8:PRINT "GESAMTWIDERSTAND =":LOCATE 12,38:PRINT "OHM"
  211.    LOCATE 12,27:PRINT USING "#####.###";sp/st :rg=sp/st
  212.    COLOR 14,0 :LOCATE 14,8:PRINT "WIDERSTAND R1    =":LOCATE 14,38:PRINT "OHM"
  213.    LOCATE 14,27:PRINT USING "#####.###";sp/i  : w=sp/i 
  214.    COLOR 14,0 :LOCATE 16,8:PRINT "WIDERSTAND R2    =":LOCATE 16,38:PRINT "OMM"
  215.    LOCATE 16,27:PRINT USING "#####.###";(w*rg)/(w-rg) :ww=(w*rg)/(w-rg)
  216.    COLOR 14,0 :LOCATE 18,8:PRINT "TEILSTROM am R2  =":LOCATE 18,38:PRINT "AMPER"
  217.    LOCATE 18,27:PRINT USING "#####.###"; sp/ww 
  218.    ON TIMER (3) GOSUB spawid
  219.    TIMER ON
  220.    WHILE 3:SLEEP:WEND
  221. spawid:
  222.   SOUND 493.88,5,100
  223.   SOUND 293.66,5,100
  224.    CLS:TIMER OFF
  225.    COLOR 8,0
  226.    LOCATE 20,15:PRINT USING"#####.###";sp:LOCATE 20,26:PRINT"VOLT"
  227.    CIRCLE (50,152),4,1
  228.    LINE (50,50)-(50,150),1
  229.    LINE (50,50)-(100,50),1
  230.    LINE (100,40)-(250,60),9,b   'R1
  231.    LINE (100,80)-(250,100),9,b   'R2
  232.    LINE (50,90)-(100,90),1
  233.    LINE (250,50)-(300,50),1
  234.    LINE (250,90)-(300,90),1
  235.    LINE (300,50)-(300,150),1
  236.    CIRCLE (300,152),4,1
  237.    COLOR 15,0
  238.    LOCATE 17,7:PRINT "^":LOCATE 7,10:PRINT ">":LOCATE 12,10:PRINT">"
  239.    LOCATE 17,14:PRINT USING"#####.###";sp/rg:LOCATE 17,26:PRINT"AMPER"
  240.    LOCATE 5,14:PRINT USING"#####.###";sp/w:LOCATE 5,26:PRINT"Amper"
  241.    LOCATE 10,14:PRINT USING"#####.###";sp/ww:LOCATE 10,26:PRINT"Amper"
  242.    COLOR 9,0
  243.    LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
  244.    LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
  245.    LOCATE 15,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 15,26:PRINT"OHM RG"
  246.    GOTO anfang
  247.    RETURN
  248. gesamt:
  249.    SOUND 493.88,5,100
  250.    WINDOW 3,,(240,63)-(611,221),0,1
  251.    COLOR 10,0
  252.    CLS:TIMER OFF
  253.    LOCATE 3,8  
  254.    INPUT "WIDERSTAND R1:   ";w
  255.    LOCATE 6,8
  256.    INPUT "WIDERSTAND R2:   ";ww
  257.    rg=(w*ww)/(w+ww) 
  258.    COLOR 14,0 :LOCATE 14,8:PRINT "GESAMTWIDERSTAND =":LOCATE 14,38:PRINT "OHM"
  259.    LOCATE 14,27:PRINT USING "#####.###";(w*ww)/(w+ww)
  260.    ON TIMER (3) GOSUB widerstand
  261.    TIMER ON
  262.    WHILE 3:SLEEP:WEND
  263. widerstand:
  264.   SOUND 493.88,5,100
  265.   SOUND 293.66,5,100
  266.    CLS:TIMER OFF
  267.    CIRCLE (50,152),4,1
  268.    LINE (50,50)-(50,150),1
  269.    LINE (50,50)-(100,50),1
  270.    LINE (100,40)-(250,60),9,b   'R1
  271.    LINE (100,80)-(250,100),9,b   'R2
  272.    LINE (50,90)-(100,90),1
  273.    LINE (250,50)-(300,50),1
  274.    LINE (250,90)-(300,90),1
  275.    LINE (300,50)-(300,150),1
  276.    CIRCLE (300,152),4,1
  277.    COLOR 9,0
  278.    LOCATE 7,15:PRINT USING"#####.###";w:LOCATE 7,26:PRINT"OHM R1"
  279.    LOCATE 12,15:PRINT USING"#####.###";ww:LOCATE 12,26:PRINT"OHM R2"
  280.    COLOR 2,0
  281.    LOCATE 17,15:PRINT USING"#####.###";(w*ww)/(w+ww):LOCATE 17,26:PRINT"OHM RG"
  282.    GOTO anfang
  283.    RETURN
  284. ende:
  285.   SOUND 493.88,5,100
  286.   SOUND 293.66,5,100
  287. WINDOW CLOSE 2
  288. SCREEN CLOSE 1
  289.  END
  290. GOTO mausdruck
  291.  
  292.  
  293.